home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / gs_dps2.ps < prev    next >
Encoding:
Text File  |  1997-05-21  |  5.8 KB  |  189 lines
  1. %    Copyright (C) 1990, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for basic Display PostScript functions
  19. % that are also included in Level 2.
  20.  
  21. level2dict begin
  22.  
  23. % ------ Halftones ------ %
  24.  
  25. /.makestackdict
  26.     { { counttomark -1 roll } forall .dicttomark
  27.     } bind def
  28. /currenthalftone        % - currenthalftone <dict>
  29.     { mark .currenthalftone
  30.        { { exch pop }        % halftone
  31.          { /HalftoneType 1        % screen
  32.         { /Frequency /Angle /SpotFunction }
  33.            .makestackdict
  34.          }
  35.          { /HalftoneType 2        % colorscreen
  36.         { /RedFrequency /RedAngle /RedSpotFunction
  37.           /GreenFrequency /GreenAngle /GreenSpotFunction
  38.           /BlueFrequency /BlueAngle /BlueSpotFunction
  39.           /GrayFrequency /GrayAngle /GraySpotFunction
  40.         }
  41.            .makestackdict
  42.          }
  43.        }
  44.       exch get exec
  45.     } odef
  46. % Define sethalftone so it converts all other types to type 5.
  47. /.sethalftoneRGBV    % <dict> <type> <keys> <keysRGBV>
  48.     { 4 -1 roll exch { 1 index exch get exch } forall 15 1 roll
  49.       14 -2 roll mark 15 1 roll { /Gray /Blue /Green /Red }
  50.        {        % stack: v0 v1 v2 type keys comp
  51.          mark
  52.          2 index 0 get 8 -1 roll
  53.          4 index 1 get 9 -1 roll
  54.          6 index 2 get 10 -1 roll
  55.             % stack: type keys comp mark k0 v0 k1 v1 k2 v2
  56.          /HalftoneType 10 index .dicttomark
  57.          counttomark 2 roll
  58.        }
  59.       forall pop pop
  60.       /Default 1 index .dicttomark .sethalftone5
  61.     } bind def
  62. /sethalftone        % <dict> sethalftone -
  63.     { dup dup /HalftoneType get 1 sub
  64.        {  { mark /Default 2 index .dicttomark .sethalftone5 }
  65.           { 1 { /Frequency /Angle /SpotFunction }
  66.         { /RedFrequency /RedAngle /RedSpotFunction
  67.           /GreenFrequency /GreenAngle /GreenSpotFunction
  68.           /BlueFrequency /BlueAngle /BlueSpotFunction
  69.           /GrayFrequency /GrayAngle /GraySpotFunction
  70.         } .sethalftoneRGBV
  71.           }
  72.           { mark /Default 2 index .dicttomark .sethalftone5 }
  73.           { 3 { /Width /Height /Thresholds }
  74.         { /RedWidth /RedHeight /RedThresholds
  75.           /GreenWidth /GreenHeight /GreenThresholds
  76.           /BlueWidth /BlueHeight /BlueThresholds
  77.           /GrayWidth /GrayHeight /GrayThresholds
  78.         } .sethalftoneRGBV
  79.           }
  80.           { dup .sethalftone5 }
  81.        } exch get exec pop
  82.     } odef
  83. % Redefine setscreen and setcolorscreen to recognize halftone dictionaries,
  84. % and to insert the Frequency and Angle into Type 1 halftones, per
  85. % Adobe TN 5085.
  86. /.fixsethalftonescreen
  87.  { dup /HalftoneType get 1 eq
  88.     { dup wcheck not { dup length .copydict } if
  89.       dup /Frequency 4 index put
  90.       dup /Angle 3 index put
  91.     }
  92.    if
  93.  } bind def
  94. /setscreen        % <ignore*2> <dict> setscreen -
  95.     { dup type /dicttype eq
  96.        { dup .fixsethalftonescreen sethalftone pop pop pop }
  97.        { //setscreen }
  98.       ifelse
  99.     } odef
  100. /setcolorscreen        % <ignore*11> <dict> setcolorscreen -
  101.     { dup type /dicttype eq
  102.        { dup .fixsethalftonescreen sethalftone 12 { pop } repeat }
  103.        { //setcolorscreen }
  104.       ifelse
  105.     } odef
  106. % Redefine currentscreen and currentcolorscreen to extract the Frequency
  107. % and Angle from Type 1 halftones, per Adobe TN 5085.
  108. /.fixcurrenthalftonescreen    % <dict> .fix... <freq> <angle> <proc>
  109.  { dup /HalftoneType get 1 eq
  110.     { dup /Frequency get 1 index /Angle get }
  111.     { 60 0 }
  112.    ifelse 3 2 roll
  113.  } bind def
  114. /currentscreen        % - currentscreen 60 0 <dict>
  115.     { .currenthalftone
  116.        { { .fixcurrenthalftonescreen }    % halftone
  117.          { }                % screen
  118.          { 12 3 roll 9 { pop } repeat    % colorscreen
  119.            dup type /dicttype eq { .fixcurrenthalftonescreen } if
  120.          }
  121.        }
  122.       exch get exec
  123.     } odef
  124. /currentcolorscreen    % - currentcolorscreen (60 0 <dict>)*4
  125.     { .currenthalftone
  126.        { { .fixcurrenthalftonescreen 3 copy 6 copy }    % halftone
  127.          { 3 copy 6 copy }            % screen
  128.          { }                % colorscreen
  129.        }
  130.       exch get exec
  131.     } odef
  132.  
  133. % ------ User objects ------ %
  134.  
  135. /.localarray where {
  136.   pop
  137. } {
  138.   /.localarray {
  139.     currentglobal false setglobal
  140.     exch array exch setglobal
  141.   } bind def
  142. } ifelse
  143. % The name UserObjects may be rebound, but we need to make sure these
  144. % operators always refer to the binding in userdict (which may also be
  145. % rebound!).
  146. /.UserObjects {
  147.   //systemdict /userdict get /UserObjects
  148. } odef
  149. % In order to get proper error recovery behavior, we need to be careful
  150. % not to pop any operands from the stack until we're done.
  151. /defineuserobject {        % <index> <value> defineuserobject -
  152.   .UserObjects .knownget {
  153.     length 2 index le {
  154.       1 index 1 add .localarray userdict /UserObjects get
  155.       1 index copy pop
  156.       .UserObjects 3 -1 roll put
  157.     } if
  158.   } {
  159.     .UserObjects 3 index 1 add .localarray put
  160.   } ifelse
  161.   .UserObjects get 2 index 2 index put pop pop
  162. } odef
  163. /execuserobject {        % <index> execuserobject -
  164.   .UserObjects get 1 index get exch pop exec
  165. } odef
  166. /undefineuserobject {        % <index> undefineuserobject -
  167.   .UserObjects get 1 index null put pop
  168. } odef
  169.  
  170. % ------ User paths ------ %
  171.  
  172. % We define upath carefully so it won't leave garbage on the stack
  173. % if an error occurs.
  174. /upath {            % <bool> upath <array>
  175.     [ 1 index {/ucache cvx} if
  176.     true .pathbbox /setbbox cvx
  177.      {/moveto cvx} {/lineto cvx} {/curveto cvx} {/closepath cvx}
  178.     pathforall ] cvx exch pop
  179. } odef
  180.  
  181. % Dummy definitions for cache control operators
  182.  
  183. /ucachestatus
  184.     { mark 0 0 0 0 0 } odef
  185. /setucacheparams
  186.     { cleartomark } odef
  187.  
  188. end                % level2dict
  189.